home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 7 / Killer-Drive_64_07_19xx_-_de_Side_A.d64 / tank fighter 3d (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  17KB  |  123 lines
  1. 10 sys6854:clr:gosub6000:poke31759,1:poke650,127:sys23000
  2. 20 n=24376:m=24489:o=31734:p=31733:h=0
  3. 30 pl=1:am=30:ty=1:a=23567:i$=chr$(34):dimsc(6)
  4. 40 poke198,0:gosub10000
  5. 45 gosub50:goto100
  6. 50 onty goto60,70,80
  7. 60 poke31732,0:poke31744,1:poke31755,1:poke780,4:poke782,40:sys22960
  8. 65 return
  9. 70 poke31732,1:poke31744,2:poke31755,3:poke780,2:poke782,25:sys22960
  10. 75 return
  11. 80 poke31732,1:poke31744,4:poke31755,4:poke780,1:poke782,13:sys22960
  12. 90 return
  13. 100 ifpl>1then500
  14. 110 s=0:pq=1:gosub1000
  15. 120 poke53269,0:sys22584
  16. 130 print"[147][156][207][206][197] [208][204][193][217][197][210]"
  17. 140 print"[149][211]core"s*100
  18. 150 ifs>hthenh=s
  19. 160 print"[150][200]i score"h*100
  20. 170 gosub400
  21. 180 goto40
  22. 200 sys22584:print""
  23. 210 forc=1topl:print"[156]";:ifc=b-1thenprint"[159]";
  24. 215 print"[208][204][193][217][197][210]"c"[158] [211][195][207][210][197]"sc(c)*100:next
  25. 220 gosub400
  26. 230 return
  27. 300 sys22584:print"[159][208][204][193][217][197][210]"b
  28. 310 gosub400
  29. 320 return
  30. 400 poke198,0:ford=1to250
  31. 410 getin$:ifin$<>""thenreturn
  32. 420 nextd:return
  33. 500 forb=1topl
  34. 505 gosub50
  35. 510 gosub200:gosub300
  36. 520 s=0:pq=b:gosub1000
  37. 530 ifs>sc(b)thensc(b)=s
  38. 540 nextb:gosub200
  39. 550 goto40
  40. 1000 sys22880:poke198,0:poke631,0:sys24336:gosub5000
  41. 1010 sysn:ifpeek(o)then1100
  42. 1020 s=s+(peek(p)-128):ifs<0thens=0
  43. 1030 sysm,peek(a),s:goto1010
  44. 1100 poke54276,0:sys22688:sys23444
  45. 1105 poke53269,0:ford=1to16:sys22804:ford1=1to30:next:ifd=5thensys22854
  46. 1110 next:poke198,0
  47. 1120 sys22688
  48. 1130 ford=1to1500:next
  49. 1140 return
  50. 5000 print""tytab(16)""pq;:poke23567,am
  51. 5010 print"";
  52. 5020 sys24432,h:print"00[157][157][157][157][157][157][157][157][157][157][157][157][157]00000[157][157]";:sysm,peek(a),s:return
  53. 6000 poke54296,15:poke54273,50:poke54277,9:poke54278,0:poke54276,0:return
  54. 6010 poke54276,17:ford=1to400:next:poke54276,0:return
  55. 10000 printchr$(8):sys22584
  56. 10010 print"[156]"i$"[212][193][206][216]"i$"[153]  [193] program by [196]k'[212]ronics.":print"[208][210][197][211][211]"
  57. 10020 print"[153]"i$"[201]"i$"  [129]'[201][206][198][207]'.":print"[153]"i$"[195]"i$"  [129]for [195][200][193][206][199][197] game type."
  58. 10030 print"[153]"i$"1"i$"  [129]to change to 1 [208][204][193][217][197][210] game."
  59. 10040 print"[153]"i$"2"i$"  [129]for 2 [207][210] [205][207][210][197] players."
  60. 10050 print"[151][193]ny other key for no change."
  61. 10060 print"[149](1 or 2 will zero [193][204][204] scores.)"
  62. 10070 print"[208][210][197][211][211]":ford=1to30:getin$:ifin$<>""then10080
  63. 10072 next:print"[208][210][197][211][211]"
  64. 10074 ford=1to30:getin$:ifin$<>""then10080
  65. 10076 next:goto10070
  66. 10080 ifin$="c"orin$="[195]"then11000
  67. 10090 ifin$="i"orin$="[201]"then12000
  68. 10100 ifin$="1"then13000
  69. 10110 ifin$="2"then14000
  70. 10120 return
  71. 11000 print"[147]":poke53280,11:poke53281,11:poke31759,1
  72. 11010 print"[208][210][197][211][211]"
  73. 11020 print"  [159]1. [198]or [197][193][211][201][197][210] start."
  74. 11030 print"  [159]2. [156][198]or [205][207][196][197][210][193][212][197] start."
  75. 11040 print"  [159]3. [158][198]or [196][201][198][198][201][195][213][204][212] start."
  76. 11045 print""left$("",ty*2)"[159]*"
  77. 11046 print"";
  78. 11050 print"  [158]4. [153][198]or rationed [193][205][205][207]."
  79. 11060 print"  [158]5. [153][198]or stock of [193][205][205][207]."
  80. 11063 ifam<>200thenprint"[145][145][145][158]*[157]";
  81. 11066 ifam=200thenprint"[145][158]*[157]";
  82. 11068 print"[151]";:ifpeek(31759)=0thenprint"[152]";
  83. 11070 print"*[152]6. [154][198]or [208][210][193][195][212][201][195][197]. ([212]ank fire harmless.)"
  84. 11080 print"[150][210]. [212]o [210]eturn."
  85. 11090 print"[208][210][197][211][211]":ford=1to30
  86. 11092 getin$:ifin$<>""then11100
  87. 11094 next:print"[208][210][197][211][211]"
  88. 11096 ford=1to30:getin$:ifin$<>""then11100
  89. 11098 next:goto11090
  90. 11100 ifin$="r"orin$="[210]"then10000
  91. 11110 ifval(in$)<1orval(in$)>6then11090
  92. 11120 gosub11140:onval(in$)gosub11200,11300,11400,11500,11600,11700
  93. 11130 goto11010
  94. 11140 print"  [207].[203].  [146]";
  95. 11150 gosub6000:gosub6010:print"[157][157][157][157][157][157][157][157]        ":return
  96. 11200 ty=1:poke31759,1
  97. 11210 return
  98. 11300 ty=2:poke31759,1
  99. 11310 return
  100. 11400 ty=3:poke31759,1
  101. 11410 return
  102. 11500 am=30:return
  103. 11600 am=200:return
  104. 11700 poke31759,0:return
  105. 12000 print"[147]":poke53280,1:poke53281,1
  106. 12010 print"[159][193][195][212][201][214][197] [212]anks .......[212][213][210][210][197][212].. 500[157][157][157][157][157][157][157][157][157][157][157][157][200][213][204][204].... 200"
  107. 12020 print"[156][201][205][205][207][194][201][204][201][211][197][196] [212]anks ..[212][213][210][210][197][212].. 200"
  108. 12030 print"[152][212]anks [207][214][197][210] [194][210][201][196][199][197] ....[205][201][206][213][211]  100[157][157][157][157][157][157][157][157][157][157][156][183][183][183][183][183]"
  109. 12040 print"[155][203][197][217][211] :":print"[158][199]un left and right   "i$"[215]"i$"  [154]"i$"[197]"i$
  110. 12050 print"[158][199]un up and down      [152]"i$"[198]1"i$" [150]"i$"[198]5"i$
  111. 12060 print"[158][200]old    [156]"i$"[200]"i$"[159]     ([193]ny key releases.)"
  112. 12070 print"[158][198]ire    "i$"[211][208][193][195][197]"i$
  113. 12075 print"[207]r use a joystick in [208][207][210][212] 1."
  114. 12080 print"[152][208]ressing [210][197][212][213][210][206] will abandon any game.";
  115. 12090 getin$:ifin$=""then12090
  116. 12100 goto10000
  117. 13000 pl=1:s=0:h=0:return
  118. 14000 print"[147]":poke53280,6:poke53281,6:s=0:h=0
  119. 14010 print"[158][200]ow many players ? [156](max 6)"
  120. 14020 getin$:ifin$=""then14020
  121. 14030 ifval(in$)<2orval(in$)>6then14020
  122. 14040 pl=val(in$):return
  123.